100 POKE53275,0
110 IFATHEN140
120 GOTO170
140 IFA<3THENA=A+1:LOADNA$+MID$(STR$(A),2),8,1
150 A=0:A=0:GOTO200
170 BC=53280:SC=53281:POKEBC,0:POKESC,0:AD=51715:DIMW%(255)
180 BO$="[153] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157][159] ":GOTO520
200 ONNPGOTO210,630,1650
210 ::POKE56576,2:POKE53272,120:POKE53270,PEEK(53270)OR16:POKE53265,PEEK(53265)OR32:RETURN
260 ::POKE53270,PEEK(53270)AND239:POKE53272,20:POKE53265,27:POKE56576,3:RETURN
310 ::FORI=0TO7:POKE843,0+I:POKE844,96:SYS830:NEXT:RETURN
330 ::PRINT"[147]":POKEBC,0:POKESC,14:POKE53272,21:POKEV+21,0:SYSAD+6,1,2
360 POKEP0,244:POKEV+39,9:POKEV+23,131:POKEV+28,96:POKEV+37,7:POKEV+38,9
370 POKEP7,244:POKEV+46,9:POKEV+14,150:POKEV+15,160
380 POKEP1,243:POKEV+40,5:POKEV+2,245:POKEV+3,184:POKEV+29,2:POKEV,100:POKEV+1,190:POKEV+21,131:RETURN
410 ::PRINT"[147]":POKEBC,0:POKESC,14:POKE53272,21:POKEV+21,0:SYSAD+6,1,1:POKEV+37,7:POKEV+38,9:POKEV+28,96
460 POKEP0,243:POKEV+39,5:POKEV+0,50:POKEV+1,220:POKEP1,243:POKEV+40,5:POKEV+2,100:POKEV+3,210
480 POKEP2,243:POKEV+41,5:POKEV+4,180:POKEV+5,230:POKEP3,243:POKEV+42,5:POKEV+6,250:POKEV+7,225
500 POKEV+21,15:RETURN
520 POKE53265,11:GOSUB260:POKE53272,23:GOSUB4070:POKE198,0:WAIT198,1:POKE198,0
530 GOSUB4260:PRINT"  [200]UGGY [194]EAR WAS A [212]EDDY [194]EAR"
535 PRINT"WHO SPENT ALL OF LAST YEAR AT"
537 PRINT"THE [212]OY [211]TORE.
550 [153]"  (null)OOR LITTLE LEFT$UGGY WANTED TO"
560 [153]"FIND A HOME WITH A NICE LITTLE"
570 [153]"BOY OR GIRL BEFORE LENHRISTMAS,"
580 [153]"BUT HE WAS WAY UP ON THE TOP"
590 [153]"SHELF WHERE PEOPLE COULDN'T"
595 [153]"NOTICE HIM.  "[199](34)"RIGHT$'LL (null)VAL(null)VAL(null) FIND A"
597 [153]"HOME THIS WAY,"[199](34)" HE THOUGHT."
610 D[178]30:[141]3920:[151]53265,27:NA$[178]"TOY STORE":NP[178]2:[137]140
630 [151]53265,27:[141]210:[151]SC,15:[151]BC,15:::V[178]53248:[151]24568,111:[151]V[170]39,9:[151]V,225:[151]V[170]1,71::
670 [151]24569,105:[151]V[170]40,5:[151]V[170]2,190:[151]V[170]3,164:[151]V[170]28,6:[151]V[170]37,7:[151]V[170]38,9::
690 [151]24570,104:[151]V[170]41,6:[151]V[170]4,190:[151]V[170]5,185:[151]V[170]21,7:D[178]10:[141]3920::
720 [158]878:[141]260:[151]V[170]21,0:[151]53272,23
730 [141]4260
740 [153]"  LEFT$UGGY THOUGHT, "[199](34)"(null)HEN IT GETS
750 PRINT"DARK, [201]'LL SLIP OUT OF THIS"
760 PRINT"STORE AND SEE WHAT IT'S LIKE"
765 PRINT"OUTSIDE!"CHR$(34)
770 D=20:GOSUB3920:PRINT"[147]"
780 SYS913:GOSUB210:POKEV+21,1:POKE53280,0:POKE53281,0:PRINT"[147]":D=5:GOSUB3920::
820 S0=24568:S1=24569:S2=24570:S3=24571:S4=24572:S5=24573:S6=24574:S7=24575
830 P0=2040:P1=2041:P2=2042:P3=2043:P4=2044:P5=2045:P6=2046:P7=2047
840 POKES0,109:FORT=1TO500:NEXT:POKES0,110:POKEV+1,90:FORT=1TO500:NEXT:POKES0,109:POKEV+1,110:FORT=1TO500:NEXT
870 POKES0,109:POKEV+1,130:FORT=1TO500:NEXT:POKES0,110:POKEV+1,150:FORT=1TO500:NEXT
890 POKES0,109:POKEV+1,170:FORT=1TO500:NEXT:POKES0,110:POKEV+1,186:FORT=1TO500:NEXT:X=225:FORI=1TO9
920 POKES0,103:POKEV,X:FORT=1TO300:NEXT:X=X-10:POKES0,102:POKEV,X:FORT=1TO300:NEXT:X=X-10:NEXT::
980 POKES0,110:POKEV+1,170:FORT=1TO500:NEXT:POKES0,109:POKEV+1,165:FORT=1TO500:NEXT
1000 POKES0,110:POKEV+1,150:FORT=1TO500:NEXT:POKES0,109:POKEV+1,150:FORT=1TO500:NEXT:GOSUB310::
1030 POKEV+21,0:PRINT"[147]":GOSUB260:POKE53281,0:SYS860:POKEP7,245:POKEV+46,1:POKEV+14,100:POKEV+15,100
1050 POKEP6,243:POKEV+45,5:POKEV+12,50:POKEV+13,170:POKEV+23,97:POKEV+29,64
1060 POKEP5,244:POKEV+44,9:POKEV+10,150:POKEV+11,170:POKEV+28,33:POKEV+37,0:POKEV+38,5
1080 POKEP2,249:POKEV+41,8:POKEV+16,4:POKEV+4,50:POKEV+5,195:POKEP1,243:POKEV+40,5:POKEV+2,120:POKEV+3,195
1100 FORT=1TO50:POKE214,RND(TI)*16+1:PRINT"[145]"SPC(RND(TI)*39+1)".":NEXT:PRINT"
1110 [151]P0,244:[151]V[170]39,9:[151]V[170]0,255:[151]V[170]1,195:[151]V[170]21,229:[151]53272,23
1130 [151]214,17:[153]""[163]24)[199](142)"CONTSTEP   (null)":[153][163]24)"VERIFY # # 
1150 W$="   SO HUGGY RAN OFF THAT ":W$=W$+"NIGHT, NOT KNOWING WHERE HE
1170 W$[178]W$[170]"WAS GOING, OR WHAT MIGHT HAPPEN.  IT WAS DARK AND COLD BUT HIS 
1180 W$=W$+"100% ACRYLIC FUR KEPT HIM WARM.":POKEV+21,231:GOSUB3960:GOSUB4060:GOSUB3990:SYS860
1210 FORX=305TO0STEP-5:POKEP2,248:FORT=1TO50:NEXT:IFX<256THENPOKEV+16,0:POKEV+4,X
1240 IFX>255THENPOKEV+16,4:POKEV+4,X-255
1250 POKEP2,249:FORT=1TO100:NEXT:NEXT:POKEV+21,229
1280 GOSUB4060:W$="  BUT A HUNGRY WOLF WAS ON THE PROWL,
1290 W$[178]W$[170]" SEARCHING FOR ANY SCRAPS OF FOOD IN THE DEAD OF WINTER.  THE
1300 W$=W$+" WOLF WAS TOO HUNGRY TO REALIZE THAT WOLVES DON'T EAT TEDDY BEARS!
1310 [141]3960:[141]3990:[151]V[170]21,231:[151]V[170]41,12:[129]X[178]305[164]0[169][171]5:[151]P2,247:[129]T[178]1[164]50:[130]
1340 [139]X[179]256[167][151]V[170]16,0:[151]V[170]4,X
1350 [139]X[177]255[167][151]V[170]16,4:[151]V[170]4,X[171]255
1360 [151]P2,246:[129]T[178]1[164]50:[130]:[130]:D[178]5:[141]3920:[153]"LOAD":[158]860:[151]V[170]0,100:[151]V[170]2,30:[151]V[170]10,50:[151]V[170]12,250
1400 [129]T[178]1[164]50:[151]214,[187](TI)[172]16[170]1:[153]"ON"[166][187](TI)[172]39[170]1)".";:[130]:[153]"
1410 W$="  FORTUNATELY HUGGY HEARD THE WOLF SCRAMBLING TOWARD HIM IN TIME TO GE
1420 W$[178]W$[170]"T AWAY.   GOSH!  WOLVES ARE BIGGER THAN DOGS!":[141]3960:[141]4060
1430 [141]3990:[151]V[170]41,8:[129]X[178]310[164]0[169][171]10:[151]P2,248:[129]T[178]1[164]5:[130]:[139]X[179]256[167][151]V[170]16,0:[151]V[170]4,X
1460 [139]X[177]255[167][151]V[170]16,4:[151]V[170]4,X[171]255
1470 [151]P2,249:[130]:::[151]V[170]41,12:[129]X[178]310[164]0[169][171]10:[151]P2,247:[129]T[178]1[164]5:[130]:[139]X[179]256[167][151]V[170]16,0:[151]V[170]4,X
1520 [139]X[177]255[167][151]V[170]16,4:[151]V[170]4,X[171]255
1530 [151]P2,246:[129]T[178]1[164]5:[130]:[130]:::D[178]5:[141]3920:[151]53272,23:[151]V[170]21,0:
1560 [141]4260:[153]"  "[199](34)"(null)Y ONLY CHANCE IS TO FIND A"
1570 [153]"TALL TREE AND CLIMB IT,"[199](34)" LEFT$UGGY
1580 PRINT"THOUGHT.  "CHR$(34)"[201] DON'T THINK WOLVES"
1590 PRINT"CAN CLIMB TREES."CHR$(34)
1600 PRINT"  [200]UGGY [194]EAR WAS STARTING TO GET
1610 [153]"TIRED AND THE WOLF WAS GAINING.
1620 PRINT"[198]INALLY HE SPOTTED A TALL ENOUGH
1630 [153]"TREE IN THE DISTANCE AND RAN"
1635 [153]"TOWARD IT."
1640 D[178]20:[141]3920:NA$[178]"TREE":NP[178]3:[137]140
1650 [151]53265,27:[141]210:[151]SC,6:[151]S7,97:[151]V[170]15,100:[151]V[170]21,128::
1655 [151]24551,95
1670 [151]53281,5:[153]"LOAD":[151]53281,0:[151]V[170]41,8:[151]V[170]5,195:[151]V[170]21,132:[129]X[178]305[164]210[169][171]5
1690 [151]S2,103:[129]T[178]1[164]10:[130]:[139]X[179]256[167][151]V[170]16,0:[151]V[170]4,X
1710 [139]X[177]255[167][151]V[170]16,4:[151]V[170]4,X[171]255
1720 [151]S2,102:[129]T[178]1[164]10:[130]:[130]:::[129]Y[178]195[164]85[169][171]10:[151]S2,110:[129]T[178]1[164]10:[130]:[151]V[170]5,Y
1780 [151]S2,109:[129]T[178]1[164]10:[130]:[130]:::[151]V[170]42,11:[151]V[170]7,190:[151]V[170]21,140:[129]X[178]305[164]230[169][171]5
1820 [151]S3,99:[129]T[178]1[164]10:[130]:[139]X[179]256[167][151]V[170]16,0:[151]V[170]6,X
1840 [139]X[177]255[167][151]V[170]16,8:[151]V[170]6,X[171]255
1850 [151]S3,98:[129]T[178]1[164]10:[130]:[130]:D[178]5:[141]3920:[158]878:[153]"LOAD":[151]V[170]21,0:[153]"LOADCLR":[141]260:[151]53272,23
1880 [141]4260:[153]"  (null)OON THE HUNGRY WOLF GREW"
1890 [153]"TIRED OF WAITING FOR LEFT$UGGY PEEKEAR"
1900 [153]"TO COME DOWN.  LEFT$E LEFT TO LOOK"
1910 [153]"FOR SOMEONE EASIER TO CATCH."
1920 D[178]20:[141]3920:[153]"LOAD":[158]913:[151]V[170]15,50:[151]V[170]21,140:[141]210:::[151]V[170]7,195:[129]X[178]230[164]0[169][171]5
1960 [151]S3,99:[129]T[178]1[164]30:[130]:[151]V[170]6,X:[151]S3,98:[129]T[178]1[164]30:[130]:[130]:[153]"LOAD":[151]V[170]21,0:[141]260:[151]53272,23
2000 [141]4260:[153]"  LEFT$UGGY PEEKEAR WAS GETTING PRETTY
2010 PRINT"TIRED AFTER HOLDING ONTO THE"
2020 PRINT"TREE FOR HOURS.  [200]E DECIDED TO"
2030 PRINT"CLIMB DOWN BEFORE HE FELL ASLEEP"
2040 PRINT"UP THERE AND HURT HIMSELF."
2050 D=20:GOSUB3920:PRINT"[147]":SYS913:GOSUB210:POKEV+21,132:::FORY=100TO195STEP5:POKES2,109:FORT=1TO50:NEXT:POKEV+5,Y
2100 POKES2,110:FORT=1TO50:NEXT:NEXT:::FORX=210TO100STEP-5:POKES2,103:FORT=1TO50:NEXT:POKEV+4,X
2150 POKES2,102:FORT=1TO50:NEXT:NEXT:POKEV+21,128:::POKEV+21,0:PRINT"[147]":GOSUB260:POKE53272,23
2190 GOSUB4260:PRINT"  [207]UR LITTLE BEAR FELL ASLEEP"
2200 PRINT"BEHIND THE BUSH.  [211]OON MORNING"
2210 PRINT"CAME AND A LOST BOY WANDERED"
2220 PRINT"BY.  [200]E DECIDED TO CLIMB THE"
2230 PRINT"TREE TO SEE WHERE HE WAS."
2240 D=20:GOSUB3920:PRINT"[147]":SYS913:POKESC,14:GOSUB210:::POKEV,0:POKEV+23,0
2270 POKEV+39,4:POKEV+28,1:POKEV+37,7:POKEV+38,0:POKEV+1,200:POKEV+21,1
2280 C$="0011121506"
2290 FORT=1TOLEN(C$)-1STEP2:POKE53281,VAL(MID$(C$,T,2)):POKE53280,PEEK(53281):FORI=1TO50:NEXT:NEXT
2310 FORX=305TO120STEP-5:POKES0,90:FORT=1TO30:NEXT:IFX<256THENPOKEV+16,0:POKEV,X
2340 IFX>255THENPOKEV+16,1:POKEV,X-255
2350 POKES0,96:FORT=1TO30:NEXT:NEXT:POKES0,94:D=2:GOSUB3920:::FORX=120TO210STEP5:POKES0,89:FORT=1TO30:NEXT:POKEV,X
2420 POKES0,88:FORT=1TO50:NEXT:NEXT:POKES0,94:FORT=1TO500:NEXT:::FORY=195TO90STEP-10:POKES0,92:FORT=1TO200:NEXT
2470 POKEV+1,Y:POKES0,93:FORT=1TO200:NEXT:NEXT:D=3:GOSUB3920:::POKEV+21,0:PRINT"[147]":GOSUB260:POKE53281,6:POKE53272,23
2520 GOSUB4260:PRINT"  [198]ROM THE TOP OF THE TREE THE
2530 [153]"BOY COULD SEE HIS HOME, SO HE":[153]"KNEW WHICH WAY TO GO.
2550 PRINT"  [194]UT CLIMBING DOWN WAS NOT AS
2560 [153]"EASY AS GOING UP.  (null)HE TREE WAS"
2570 [153]"HARD TO HOLD ON TO.  (null)HE BOY"
2580 [153]"TRIED TO BE CAREFUL BUT SLIPPED"
2590 [153]"AND FELL TO THE GROUND!":D[178]20:[141]3920
2600 [153]"LOAD":[158]913:[141]210:[151]SC,6:[151]V[170]21,1
2620 [129]Y[178]90[164]110[169]10:[151]S0,93:[129]T[178]1[164]300:[130]:[151]V[170]1,Y:[151]S0,92:[129]T[178]1[164]300:[130]:[130]
2660 [151]V,200:[151]V[170]1,130:[129]T[178]1[164]100:[130]:[151]V,190:[151]V[170]1,150:[129]T[178]1[164]50:[130]
2680 [151]V,180:[151]V[170]1,170:[151]S0,91:[129]T[178]1[164]50:[130]:[151]V,175:[151]V[170]1,190:[129]T[178]1[164]50:[130]:[151]V,170:[151]V[170]1,210
2710 D[178]10:[141]3920:::[151]V[170]21,5:[151]V[170]41,9:[129]X[178]100[164]150[169]5:[151]S2,107:[129]T[178]1[164]100:[130]:[151]V[170]4,X
2770 [151]S2,108:[129]T[178]1[164]100:[130]:[130]:[129]T[178]1[164]4000:[130]:::[151]V[170]21,0:[153]"LOAD":[141]260:[151]SC,6:[151]53272,23
2810 [141]4260:[153]"  "[199](34)"(null)HAT HAPPENED?  STR$ID YOU
2820 PRINT"FALL OUT OF THAT TREE?"CHR$(34)"[160]HE ASKED.
2830 [153]"PEEKUT THE BOY DIDN'T ANSWER."
2840 [153]"  LEFT$UGGY PEEKEAR WAS AFRAID THE BOY"
2850 [153]"WAS BADLY HURT.  "[199](34)"RIGHT$'D BETTER
2860 PRINT"GO GET HELP."CHR$(34)"  [211]O HE RAN"
2870 PRINT"THROUGH THE WOODS TO THE HOUSES"
2880 PRINT"HE HAD SEEN IN THE DISTANCE.
2890 D[178]20:[141]3920:[158]AD[170]3,1,"WOODS":[158]AD[170]3,2,"HOME":[141]410
2900 [151]V[170]43,9:[151]V[170]9,195:[151]V[170]21,31:[151]2023,160:[151]2023[170]54272,13
2930 [129]X[178]0[164]305[169]10:[151]P4,254:[129]T[178]1[164]20:[130]:[139]X[179]256[167][151]V[170]16,0:[151]V[170]8,X
2960 [139]X[177]255[167][151]V[170]16,16:[151]V[170]8,X[171]255
2970 [151]P4,253:[129]T[178]1[164]20:[130]:[130]:[151]V[170]21,0:[151]V[170]16,0:[151]V[170]23,0:[151]V[170]29,0:[141]330:[151]P5,242:[151]P6,241
3010 [151]V[170]44,2:[151]V[170]45,6:[151]V[170]13,190:[151]V[170]11,169:[151]V[170]10,180
3020 [151]V[170]12,180:[151]V[170]21,247
3040 [129]X[178]0[164]120[169]10:[151]P4,254:[129]T[178]1[164]20:[130]:[151]V[170]8,X:[151]P4,253:[129]T[178]1[164]20:[130]:[130]:[151]P4,252:[151]53281,6
3050 [151]2023,160:[151]2023[170]54272,5
3090 W$[178]"   "[170][199](34)[170]"A LITTLE BOY FELL OUT OF A TREE AND HURT HIMSELF!
3100 W$=W$+"  I CAN'T WAKE HIM!  CAN YOU COME AND HELP?"+CHR$(34):GOSUB3960
3110 GOSUB4060:GOSUB3990:D=1:GOSUB3920:FORX=120TO0STEP-10:POKEP4,248:FORT=1TO20:NEXT:POKEV+8,X
3150 POKEP4,249:FORT=1TO20:NEXT:NEXT:FORX=180TO0STEP-10:POKEP5,242:POKEP6,240:FORT=1TO20:NEXT:POKEV+10,X:POKEV+12,X
3190 POKEP5,242:POKEP6,239:FORT=1TO20:NEXT:NEXT:GOSUB410:POKEV+21,127:FORX=305TO0STEP-10:POKEP4,248:FORT=1TO20:NEXT
3230 IFX<256THENPOKEV+16,0:POKEV+8,X
3240 IFX>255THENPOKEV+16,16:POKEV+8,X-255
3250 POKEP4,249:FORT=1TO20:NEXT:NEXT:FORX=305TO0STEP-10:POKEP5,242:POKEP6,240:FORT=1TO20:NEXT
3280 IFX<256THENPOKEV+16,0:POKEV+10,X:POKEV+12,X
3290 IFX>255THENPOKEV+16,96:POKEV+10,X-255:POKEV+12,X-255
3300 POKEP5,242:POKEP6,239:FORT=1TO20:NEXT:NEXT:::PRINT"[147]":SYS913:POKEV+21,0:GOSUB210:POKEV+21,240:POKEV+23,0
3330 POKES7,91:POKEV+46,4:POKEV+28,224:POKEV+14,170:POKEV+15,210:POKEV+9,200:FORX=305TO135STEP-10
3340 POKE2023,160:POKE2023+54272,13
3350 POKES4,102:FORT=1TO20:NEXT:IFX<256THENPOKEV+16,0:POKEV+8,X
3370 IFX>255THENPOKEV+16,16:POKEV+8,X-255
3380 POKES4,103:FORT=1TO20:NEXT:NEXT:POKES4,108:FORX=305TO180STEP-10:POKEV+13,205:POKEV+11,184
3420 POKES5,87:POKES6,85:FORT=1TO20:NEXT:IFX<255THENPOKEV+16,0:POKEV+10,X:POKEV+12,X
3440 IFX>255THENPOKEV+16,96:POKEV+10,X-255:POKEV+12,X-255
3450 POKES5,87:POKES6,84:FORT=1TO20:NEXT:NEXT:FORT=1TO1500:NEXT:POKES6,86
3460 POKEV+21,0:PRINT"[147]":GOSUB260:POKESC,6:POKE53272,23
3490 GOSUB4260:PRINT"  "CHR$(34)"[212]HAT'S MY LITTLE BROTHER!"CHR$(34)
3510 PRINT"SAID THE GIRL.  "CHR$(34)"[201]'LL CARRY HIM"
3520 PRINT"BACK TO THE HOUSE."CHR$(34)
3530 PRINT"  [211]HE LIFTED HER BROTHER AND"
3540 PRINT"BEGAN WALKING HOME WITH HIM IN"
3550 PRINT"HER ARMS.  [200]UGGY [194]EAR FOLLOWED"
3560 PRINT"THEM.":D=20:GOSUB3920
3580 PRINT"[147]":SYS913:GOSUB210:POKESC,6:POKES5,83:POKES6,82:POKEV+21,112:FORX=180TO255STEP10
3590 POKE2023,160:POKE2023+54272,13
3610 POKES5,83:POKES6,81:FORT=1TO100:NEXT:POKEV+10,X:POKEV+12,X:POKES5,83:POKES6,82:FORT=1TO100:NEXT:NEXT::
3650 POKEV+21,0:PRINT"[147]":GOSUB260:GOSUB330:POKEV+8,0:POKEV+10,0:POKEV+12,0:POKEV+9,190:POKEV+11,169:POKEV+13,190
3660 POKE2023,160:POKE2023+54272,5
3680 POKEV+21,227:FORX=0TO210STEP10:POKEP5,238:POKEP6,236:FORT=1TO100:NEXT:POKEV+10,X:POKEV+12,X
3720 POKEP5,238:POKEP6,237:FORT=1TO100:NEXT:NEXT:POKEV+21,147:FORX=0TO210STEP10:POKEP4,254:FORT=1TO100:NEXT
3760 POKEV+8,X:POKEP4,253:FORT=1TO100:NEXT:NEXT:POKEV+21,131:D=5:GOSUB3920:POKEV+21,0:PRINT"[147]
3800 [151]BC,6:[151]SC,6:[151]V[170]23,0:[151]V[170]29,0
3810 [141]4260:[153]"  LEFT$UGGY PEEKEAR AND THE GIRL RAN
3820 PRINT"INTO THE HOUSE AND CALLED FOR THE":PRINT"CHILDREN'S PARENTS.
3840 [153]"  "[199](34)"RIGHT$'M SCARED.  (null)HAT SHOULD WE
3850 PRINT"DO?"CHR$(34)" ASKED THE GIRL.":D=20:GOSUB3920
3855 CLR:LOAD"HBXMAS PT2",8
3920 TI$="000000":POKE198,0
3930 IFVAL(TI$)<DANDPEEK(198)=0THEN3930
3940 GETA$:RETURN
3960 WX=0:FORI=1TOLEN(W$):W%(I)=0:IFMID$(W$,I,1)=" "THENWX=WX+1:W%(WX)=I
3970 NEXT:W%(WX+1)=LEN(W$)+1:RETURN
3990 FORT=217TO242:POKET,PEEK(T)OR128:NEXT:PRINT""TAB(21);:WX=1
4010 POKE199,1:PRINTMID$(W$,W%(WX),W%(WX+1)-W%(WX));:IFW%(WX+2)=0THEN:POKE199,0:RETURN
4030 IFPOS(0)+(W%(WX+2)-W%(WX+1))>38THENPRINTCHR$(13)SPC(20);
4040 WX=WX+1:GOTO4010
4060 PRINT"":FORT=20TO38:PRINT""TAB(T)BO$:NEXT:RETURN
4070 POKE53281,0:POKE53280,0:PRINT"[147][158]
4080 [129]I[178]1[164]11:[153]"STEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPLIST(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)";:[130]
4090 [129]I[178]1[164]11:[153]"PRINT#(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)POKESTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEPSTEP";:[130]:[153]"SYS
4100 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:POKE214,5
4110 PRINT:FORI=1TO10:PRINTTAB(4)"[221][152]                              [146][158][221]":NEXT:POKE214,6:POKE211,4:SYS58732
4130 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":PRINTTAB(5)"[155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][158]
4150 [151]214,16:[151]211,4:[158]58732:[153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
4170 PRINTTAB(5)"[145][145][151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][158]":POKE214,7:PRINT:A$="[200][213][199][199][217][160][194][197][193][210]'[211]":GOSUB4250
4190 A$="[198][201][210][211][212][160][195][200][210][201][211][212][205][193][211]":GOSUB4250:PRINT:A$="BY [215]ILLIAM [207]. [206]ELSON":GOSUB4250
4210 A$="[208][213][194][204][201][211][200][197][196][160][207][206][160][204][207][193][196][211][212][193][210][160]#67":GOSUB4250
4220 A$="[211]UBSCRIPTIONS 1-800-831-2694":GOSUB4250
4230 A$="([195]) 1989 [215]ILLIAM [207]. [206]ELSON":GOSUB4250
4240 POKE214,23:PRINT:PRINTTAB(14)"[208]RESS [211][208][193][195][197]":RETURN
4250 PRINTSPC(20-LEN(A$)/2)"[152]"A$:RETURN
4260 PRINT"[147][156]";:POKE53281,0:POKE53280,0:PRINT" [176][174]                                  [176][174]
4280 [153]"OR(null)(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)(null)^";
4290 [153]"(null)(null)-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<(null)(null)";
4300 [153]"/<(null)                                  (null)-EXP";:[129]I[178]1[164]17
4320 [153]" (null)(null)                                  (null)(null)":[130]
4330 [153]"OR<(null)                                  (null)-^";
4340 [153]"(null)(null)-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<(null)(null)";
4350 [153]"/(null)(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)(null)EXP";
4360 [153]" /EXP     OPEN(null)RESS (null)(null)ATNLENVAL OPENTO CONTINUE     CLR /EXPPRINT":[142]
10000 [159]15,8,15,"S0:HBXMAS PT1":[160]15:[148]"HBXMAS PT1",8:[128]